home *** CD-ROM | disk | FTP | other *** search
/ Sound Fx / Sound Fx.iso / Software / UNZIPED / DWSTK / DWT.BI < prev    next >
Text File  |  1996-10-09  |  2KB  |  56 lines
  1. '******************************************************************************
  2. 'File:      dwt.bi
  3. 'Version:   2.22
  4. 'Tab stops: every 2 columns
  5. 'Project:   DiamondWare's Sound ToolKit
  6. 'Copyright: 1994-1995 DiamondWare, Ltd.  All rights reserved.
  7. 'Written:   by Keith Weiner, Erik Lorenzen, and Don Lemons
  8. 'Purpose:   Contains declarations for the DW Timer
  9. 'History:   94/09/24 DL Ported to .BI
  10. '           94/11/27 EL Finalized for 1.00
  11. '           95/04/12 EL Finalized for 1.02
  12. '           95/06/06 EL Finalized for 1.03, no changes
  13. '           95/07/23 EL Finalized for 1.04, no changes
  14. '           95/07/23 EL Finalized for 2.00, no changes
  15. '           95/08/29 EL Finalized for 2.10, no changes
  16. '           95/10/18 EL Finalized for 2.20, no changes
  17. '           95/12/07 EL Finalized for 2.21, no changes
  18. '           96/10/11 EL Finalized for 2.22, no changes
  19. '
  20. 'NOTE: This code is __NOT__ compatible with source profilers
  21. '******************************************************************************
  22.  
  23.  
  24.  
  25. 'Below are the timer rates supported by DWT.  Anything in between
  26. 'the listed values will cause the DOS/BIOS clock to tick erratically
  27. 'and is thus not allowed.  Any value higher than 145.6 Hz means
  28. 'you have some very special circumstances; dwt won't fit your needs
  29. 'anyway.
  30.       
  31. CONST dwt182HZ    = 0 ' 18.2 Hz
  32. CONST dwt364HZ    = 1 ' 36.4 Hz
  33. CONST dwt728HZ    = 2 ' 72.8 Hz
  34. CONST dwt1456HZ = 3 '145.6 Hz
  35.  
  36.  
  37.  
  38. DECLARE SUB          dwtInit                ALIAS "DWT_INIT"             (BYVAL rate%)
  39.  
  40. 'If the program has called dwt_Init, it _MUST_ call dwt_Kill before it
  41. 'terminates.
  42. '
  43. 'NB: Trap critical errors.  Don't let DOS put up the
  44. '    "Abort, Retry, Fail?" text.  ('sides, it'll destroy your pretty gfx)
  45. DECLARE SUB          dwtKill                ALIAS "DWT_KILL"             ()
  46.  
  47.  
  48. 'The following 2 subroutines affect the timer, but not the music
  49. DECLARE SUB          dwtPause             ALIAS "DWT_INIT"             ()
  50.  
  51. DECLARE SUB          dwtUnPause         ALIAS "DWT_KILL"             ()
  52.  
  53.  
  54. 'Number of ticks since Beginning of World
  55. DECLARE FUNCTION dwtMasterTick& ALIAS "DWT_MASTERTICK" ()
  56.